Appl.No. 10/079,309 

REMARKS/ARGUMENTS 

Claims M have been amended. Claim 5 has been canceled. Claim 6 has been 
canceled. Claim 7 has been canceled. Claim 8 has been canceled. Claun 9 has been 
amended. 

The examiner has acknowledged that claims 1 - 4 and claim 9 have now been 
amended to correct editorial errors and clear up any matters of form. Claims 5-8 have 
been canceled as being drawn to an embodiment no longer of interest to applicant. 

Claim 1 has been amended for the following reasons: 
To clear up any matters of iform. 

Claim 2 has been amended for the following reasons: 
To clear up any matters of form. 

Claim 3 has been amended for the following reasons: 
, To clear up any matters of form. 

Claim 4 has been amended for the following reasons: 
To clear up any matters of form. 

Claim 9 has been amended for the following reasons: 
To clear up any matters of form. 

Attached hereto is a marked-up version of the changes made to the specification, 
claims and drawings by the current amendment. The attached page is captioned 
^'Version with markings to show changes made.^* 

Applicant respectfully requests that a timely Notice of Allowance be issued in this 



case. 



Respectfully submitted, 



INVENTOR 




CamSoft Corporation 
(951)674-8100 
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In the Drawings; 

The content of FIG 1 has been amended. The page numbers for FIG 1 through 
FIG 9 have been amended as a result of the addition of FIG 10. 
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VERSION WITH MARKINGS TO SHOW CHANGES MADE 
In the Specification; 

A new drawing description has been added to the section entitled ^BRIEF 
DESCRIPTIONS OF THE SEVERAL VIEWS OF THE DRAWINGS after FIG 
9, as indicated in the clean copy and shown below: 

FIG 10. is a flowchart in block diagram form of each technology element. 



The section entitled "DETAILED DESCRIPTION OF THE INVENTION'' has new 
rewritten content for paragraph Nos. [0022], [0023], [0029] and [0030], as indicated 
in the clean copy and shown below. Paragraph Nos. [0001] through [0012], [0015] 
through [0021] and [0024] through [0028] remain as is in the Specification. 
Paragraph Nos. [0013] and [0014] have been deleted. Paragraph Nos. [0031] 
through [0053] have been added. 



I^^l^l On FIG 1. tho group of boxeo undor tho oootion OPTIONAL SETTPvJGS is 

d e soribed as follovvs: 



f^^l^l This is on array of miscellanoouQ settingo that do not dirootly relate to foaturos 

needed for multiplo oxos tool oomp. Thoy aro prosontod horo to fully diooloso how 
multiple axes tool oomp intoraoto with tho varioua othor operator s e ttingg and ohoicos. 

DRY RIJ>J is uGod to switch on or off a modo m which tho Z axis, Spindlo and Food 
mod e will bo disabled or not. Commonly uood in toot runs r 

BITMAP G CODE DISPLAY will rofrosh tho GCODE window whonovor anothor 
window pops up over it, 

GRi\PHICS: SOLID VS WIREFRAME owitohos tho gmphios display to oithor a 
solid model or wirofromo ? 

TOLERiWCE a i^or provided value in whioh to porform the oaloulationQ. 

BLOCK SKIP CHARACTER is a user defined ohomotor to toll tho oomputor to 
skip this lino of data or not. 

TEACH FILE NAME is a file namo in which to stor e all of tho locations used. 
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SOLID STOCK B e gin Z @ sp e cifi e s th e Z axis b e gimiing of th e solid mod e l. 
Typically 0. 

SOLID STOCK Extra Stook adds e xtra mat e rial or stock around th e e dges or 
diam e ter. 

FANUC ARC CENTER to b e calculat e d from Absolut e , incr e mental or radii giv e n 
arc c e nt e rs. 



(0022) Shown below are the variables used and how the calculations are made in the 

central set of math routine algorithms. 



Element Title: Vector and Matrix Subroutine 

U,V,W are the end result of the compensated tool positions. 

D = the distance or combined length of FIG 2. Dim "A" Item 2, Dim "B" Item 3 

and Dim "C" Item 4. 

Vx,Vy,Vz are the 3D vector component values. 
X, Y,Z is the original non-compensated tool position 

U = D* Vx + X 
V = D* Vy + Y 
W = D* Vz + Z 



[0023] The use of the L code represents a conical angle measured from the tool tip point 

to the nearest obstacle from a flat 2D plane. If the user specifies an angle after LLIMIT, 
then the tool position move may be completely omitted by the machine if an obstacle is 
encoimtered on the part surface in order to automatically avoid gouging as part of the 
central set of math routine algorithms. 

Element Title: Gouee Subroutine 

L!= the value given after the LLIMIT command, 

" L = (D/Sm(L!)) 

If L < 0 Then skip this move. 

Else, combine this value with the D distance value to arrive at a new distance to 
compensate. 
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D=D+L 



[00291 As such this set of central math routine algorithms using variables to show the 

math matrix calculation is sho\vn below: 

Element Title: Central Subroutine 

Cz = Cos(Rz): Sz = Sin(Rz): Cx = Cos(Rx): Sx = Sm(Rx): Cy = Cos(Ry): Sy = Sin(Ry) 
'Z rotate, counter clockwise 

XI = U * Cz + V * Sz: Yl = U * -Sz + V * Cz: Zl = W 
'Y rotate, back 

X2 = X1: Y2 = Y1 *Cx + Zl *-Sx:Z2 = Yl *Sx + Zl ♦Cx 

'X rotate, left 

U = X2*Cy + Z2*-Sy:V = Y2: W = X2*Sy + Z2*Cy 



|0030] As referred to in Claims 9 and 9a, the database is an internal list for storage of 

events, variables, conditions and positions kept in standard computer random access 
memory. The format for this information is kept in multiple sequential standard matrix 
arrays. The data is accessed randomly as needed. The formats are double, matrix array 
as shown below for all collected and gathered user data, variables and positions: 



Element Title: Database Subroutine 

Positionl(X,Y,Z,4,5,6,7,8) 
Position2(X,Y,Z,4,5,6,7,8) 
Position3(X,Y,Z,4,5,6,7,8) 
Etc... to Nth Position 
Position Nth(X,Y,Z,4,5,6,7,8) 

VariableDatal(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
VariableData2(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
VariableData3(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
Etc... to Nth ^ 

VariableData Nth(Var 1 ,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 



46 



Appl.No. 10/079,309 



UserDatal(Userl,User2,User3,User4,User5,User6,User7,User8) 
UserData2(User 1 ,User2,User3 ,User4,User5,User6,User7,User8) 
UserData3(Userl,User2,User3,User4,User5,User6,User7,User8) 
Etc... to Nth 

UserDataNth(Userl,User2,User3,User4,User5,User6,User7,User8) 

[0031] Presents a group of elements titled as the collection of mathematical subroutine 

elements and enumerated here as Paragraphs r00311 through [00541. The provided 
flowchart in block diagram form. FIG 10. recites all of the elements, components and 
steps completely constituting every aspect of the technology elements enumerated as 
Paragraphs [0030] titled as Intelligent Database subroutine and Database subroutine 
which calls, ties to and worics together with the group of elements titled the collection of 
mathematical subroutine elements enumerated as Paragraphs [0031] through f0054] and 
specifically linked to and shown in FIG 10 of the block diagram as it interacts with the 
Element titled DbAtr enumerated as paragraph f00431 . Element titled DbGet enumerated 
as paragraph r00441. Element titled DbSet enumerated as paragraph [00451 and Element 
titled DbSetAtrCur enimierated as paragraph [0046]. 

Subroutine Element Form Load 

Reads in all data from user input boxes from FIG 1 and stores them into the 
Database Element as described and enumerated as paragraph [00301. 

Private Sub Form LoadO 

On Local Error GoTo LloadErr 

IniDirS = Enyiron$("AS3000"V If RigfatSOniDirS. n o "\" Then IniDirS = IniDirS + "\" 
Call GloRead 

Call Prevlnst 

If Commands o "LAUNCH FROM CNC ONLY" Then MsgBox "You must launch this 
from the CNC": End ^ 

ShowDone% = 0 

'Call IniRead("CNCTOOL.INr'. "FORM") 

'Call IniDatr"TOP". TS): CNCtool.Top = Val(T$) 

'Call IniDatC'LEFT". T$): CNCtool.Left = VairTS) 
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'Call IniDatr"HEIGHT". T$l: CNaooLHeieht = Val(T$) 
'Call IniPatCWTOTH". T$^: CNCtool.Width = Vaim^ 
ShowDone% = 1 

If Tiine% = 1 Then Sounds.MMControll. Enabled = Tme 

SSPanel6.Top = 60: SSPanel6.Left = 6540 



If MachS = "LATHE" Then 
' OLD For Standard Lathe 

'SSPanell.Caption = " Tool Parameters 

Tool Nose Z axis X axis Custom Wear Custom 1 Custom2 Radius Horz 

Vert 3rd axis" 

'SSPanel2.Caption=" Machine Offeets 

Z X 3 4 5 6" 

'SSPanel6.Caption = "Tool Definitions (Solid Mode Only) Comer Bottom Side 
Length Type radius angle angle ^ 

'Label5.CaDtion = "Z": Label6.Caption = "X": Label7.Caption = "3" 

' OLD For Vertical Turning Lathe 

'SSPanell.Caption = "" 

'SSPanel2.Caption = " Machine Offsets 

X Z 4 5 6" 

'SSPanel6.Caption= "Tool Definitions (Solid Mode Onlv^ Comer Bottom Side 
Length Type radius angle angle 1^ 

'Label5.Caption = "X": Ubel6.Caption = " ": LabelT.Caotion = "Z" 

'New LATHE 

Ubel5.Caption = "Z": Label6.CaDtion = "X": Label7.Caption = "3" 

SSPanell.Caption = " Tool Parameters 

Tool Nose Zaxis Xax is 3rd axis Wear Custom lCustom2 Radius Horz 
Vert" 

SSPanel2.Caption = " Machine Offeets 

Z X 3 4 5 6 7 8" 

SSPanel6. Caption = " Tool Definitions (Solid Mode Onlv^ Comer Bottom Side 

Length Type radius angle angle 1 

Else 

'OLD Standard mill 

'SSPanelLCaption = " Tool Parameters 

Size Horz Vert Height Wear Custom 1 Custom2" 

'SSPanel2.Caption'=" \ Machine Offsets 

X Y Z 4 5 6" 

'SSPaneie .Caption = "Tool Definitions (Solid Mode Only) Comer Bottom Side 
Length Type radius angle angle 

'NewMill 

LabelS.Caption = "X": Label6.Caption = "Y": Label7.Caption = "Z" 
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SSPanell.Caption= " Tool Parameters 

Size Horz Vert Height Wear CustomlCustom2" 

SSPanel2.Caption = " Machine Offsets 

X Y Z 4 S 6 7 8" 

SSPanel6.Caption = " Tool Definitions (Solid Mode Onlv> Comer Bottom Side 

Length Type radius angle angle "_ 

End If 

ToolPage% = 0 
ToolDef% = 0 
ToolDescrip% = 0 
ToolPics% = 0 

If DirSOniDirS + "CNC\TOOLDEF.FIL"^ o Then ToolDeP/o = 1 
If DirSOniPirS + "CNC\TOOLCUS.FIL"^ o "" Then ToolCus% = 1 
If Dir$(hiiDir$ + "CNC\TOOLDESP.FIL"') o "" Then ToolDescrip% = 1 
If DirSOniDirS + "CNC\TQOLPICS.FIL"^ o "" Then ToolPics% = 1 

Fl% = FreeFile: Open IniPirS + "CNC\TOOL.FIL" For Input As #F1% 

If ToolDef% = 1 Then F2% = FreeFile: Open IniPirS + "CNC\TOOLDEF.FIL" For Input 

As #F2% 

If ToolCus% - 1 Then F3% = FreeFile: Open IniPirS + "CNC\TOQLCUS.FIL" For 
Input As #F3% 

If ToolPescrip% ° 1 Then F4% = FreeFile: Op en TniPi rS + "CNC\TOOLDESP.FIL" For 
Input As #F4% 

If ToolPics% = 1 Then F5% = FreeFile: Open IniPir$ + "CNC\TOOLPICS.FIL" For 
Input As #F5% 

ForCnt% = 0To9 

Input #F1%. TemN!: Dum$ = Format$(TemN!. "####0.0#####"): Textl(Cnt%VText = 
TrimSfPumSt 'Size 

Input #F1%. TemN!: Dum$ = Format$(TemN!. "####0.0#####"V Text2(Cnt%VText = 
Trim$rPum$^ 'Horz 

hiput #F1%. TemN!: Dum$ = Format$(TemN!. "####Q.O#####"V- Text3(Cnt%yText = 
Trim$fPum$) 'Vert 

Input #F1%. TemN!: DumS = FormatSfTemNI. "#mO.Omm"): Text4(Cnt%VText = 
Trim$(T)um$') 'Height 

Input #F1%. TemN!: Pum$ = Format$(TemN!. "####Q.0#####"^: Text5(Cnt%yText = 
TrimSrPumS) 'Wear 
If ToolDef^/o = 1 Then 

Input #F2%. Pum$: DumiB = FormatSrPumt. "####0.0#####"V Textl6(Cnt%).Text = 
Trim$(T)um$') 'Comer Radius 

hput #F2%. Pum$: Pum$ = Foimat$(Dum$. "####0.Q#####"^: Textl7(Cnt%iText = 
Trim$(T)um$) "Bottom Angle 

hiPut #F2%. Pum$: Dum$ = FoimatSfPumS. "#j^0.0#####"); TextlSCCntyolText = 
Trim$(Pum$^ 'Side Angle 
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Input UV2%. Dum^- nnn^s; = FnrmatSfP ^rn't "Mj»^O.QM##"V Text19(Cnt%).TexL: 

Trim$(Dum$t "Length ,^ 
Tnp.it #F2%' D "w ^Text20rCD to/.) Text = TrimiBrDumS) 'TooIType 

End If 

TfTnnir,iis%=lThen 

Tnnut #F3%. Piitnit; Text23(Cn i%VText = Trim$(Dum$) Customl 
Tnput #F3%. nnm$: Text24(C -niynVText = Trim$(Dum$) 'Custom2 
End If 

IfTooIDescrip%= 1 Then 

Tnnut #F4%. nnm$: Text26(rnt%VText = Tri miBfDumS^ 'Peso 
Tnput #F4% num$: Text25 rCniyoVText = Trim$(Pum$) Time 
End If 

'ToolPics% is F5% not needed here 
Next Cnt% 

SeekFl%. 1 

Tf ToolDeP/o = 1 Then Seek F2%. 1 
If ToolCus% = 1 Then Seek F3%. 1 
If ToolDescrip% = 1 Then SeekF4%. 1 
If ToolPics% = 1 Then Seek FS%. 1 

'Load rest of tool info into arrays ' MaxTools% 
For Cnt% = 1 To MaxTools% 
Input #F1%- ToolSizel(Cnt%) 
Input #F1%- ToolHorz!rCnt%) 
Input #F1%. ToolVert!(Cnt%') 
Input #F1%- ToolHeight!rCnt%) 
Input #F1%- ToolWear!rCnt%> 
IfToolDeP/o=l Then 

toput #F2%- ToolCorRad!(Cnt%) 

hiput #F2%- ToolBotAng!(Cnt%) 

Input #F2%- ToolSideAng!(Cnt%> 

Input #F2%- ToolLength!fCnt%^ 

hiPUt #F2%- TQolTvpe!fCnt%^ 
End If 

If ToolCus% = 1 Then 

hiput #F3%. ToolCustoml!fCnt%) 

hiPut #F3%. ToolCustom2!(Cnt%) 
End If 

If ToolDescrip% = 1 Then 

hiPut #F4%. ToolDesD$(Cnt%) 

h^put #F4%- ToolTimel(Cnt%') 
End If 

If ToolPics% = 1 Then 
Input #F5%. Dum$: ToolPhoto$(Cnt%l = Trim$(Dum$) 'Desp 
End If 
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Next Cnt% 

rinsP Fl%. F2% , F^%- F4%. F5% 

PI o/» = FreeFile: O^n TniDirfR + ■'CN Q TOOT OPT.FIL" For Tnput As #F1% 
if ^^^N, = F.»n.t.rTen.N!. "####0 0#M##"): Text6(0).Text = 
^ ^^if^^Nl: Fnn..tS;rTemN' "####0 0##### " ) : Text6a}JMZ 

Tn p?,f£'i^VL N'- nnn.^ = Format$f T >>»^M' "^■Q#####">: Text6(2).Text = 
l ^f^jf^n^N!- nnn.^ = FnmiatSrTe ^ ^xr. '■M^n.O##M#"V Text6(3).Text = 
Tn pTlS'i^^Vli nNt- n„n.i: = Format$(T . n.Mt " WQ.OW##"V Text6(4).Text = 

Tn pTJ iS'i^o^ Tem N'' Hnrnfi; = Fonnat$( T .n,N. "M##Q.O#####'-): Text6(5).Text = 
Trim$(Dum$') '6 

'Tnnut #F1%. Dum^! Text6(6VTe vt = TrimSfPumS) 7 see end of file line 23 
'Input #F1%. numS: Text6f7 ) Tavt = TrimSfDumS^ '8 

'F ixture offsets 

Tnpnt #F1%. TemN!; Dum$ = FormptfCrXemN!. ^m m cmmrY Text7(0\Text = 
Trim$fDum$>'XG54 

In put #Fl%.Ter;^nnm!i; = Fonn ^t^rTemN!. "Umm.mm"): Text7(lllext^ 
Trim$nDum$) 'Y 

In put tfFlo^ TemN!r numS: = Fonii«t.i;(TemN!. "mm.mm"): Text7i21 Iext^ 
Trin^fDumSVZ 

Inn J#F1%: TlmN!; Dum!l> = FnrmatiiSrremN!. -m m.Omm^Y Text7(3VText = 

Innut #F1%. T^mN!: Dum$ = Fnrmat^nremNL "M ma.Omm#"y. Text7(4).Text = 
Trim$(Dum$V5 

Tnnut #Flo/o. TemN!; DumS = FormatfRrTemN!. "mM n.Cmmm-Y Text7(SVText = 
Trim$n3um$^ '6 

Input #Fl%: TemN!: Dumii; = Format$(TemN!. "mm (\XMmm\. Text8(0VText = 
Trim$(Dum$') 'X G55 

Innut #Flo/o. TemN!; Duma; =^ Form«t$fTemN!. "mm (\Mmm"\. TextSdVText = 
TrimSfDumS^ 'Y 

Tnnut #F1%. T^mNh Dum$ = Formati;(TemN!. -m mmmM^Y Text8(2).Text = 
Trim$(Dum$^ 'Z 

Input #F1%. TemNl: Dum$ ^ Format$rTemN!. " mma.omm#"Y TextSrSVText = 
Trim$(Dum$V4 

Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. " W0.0#####"): Text8(4).Textz 
Triin$(Dum$^ '5 

Input #F1%, TemNi: Dum$ = FormatSfTemNL "####0.0### ##"V Text8(5VText = 
Trim$(I>um$> '6 
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Input #F1%. TemN!: Dum$ = FormatSfTemN!. "####0.0#####"): Text9(0).Text = 
Trim$(Dum$^ 'X G56 

Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. "####0.0#####"^: Text9f n.Text = 
Trim$(Dum$) 'Y 

Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. "####0.0#####"): Text9(2).Text = 
Trim$fDum$'> 'Z 

Input #F1%: TemN!: Dum$ = Format$(TemN!. "####0.0#####"^: Text9(3)Text = 
Trim$(T)um$'> '4 

Input #F1%. TemN!: Dum$ = Fonnat$(TeniN!. "####0.0#####"'): Text9(4VText = 
Trim$(Dum$> '5 

Input #F1%. TemN!: Dum$ = FonnatSfTemN!. "####Q.0#####"): Text9(5VText = 
Trim$(Dum$') '6 

Input #F1%. TemN!: Dum$ = FonnatiSrTemN!. "####Q.0#####"^: TextlOrOVText = 
Trim$n)um$^ 'X G57 

Input #F1%. TemN!: Dum$ = FonnatiKrTemN!. "####Q.O#####"V TextlOH VText = 
Trim$rDum$^ 'Y 

Input #F1%. TemN!: Dum!i; = Fonnat!i;(TemN!. "####Q.Q#####"): TextlQQVText = 
TrimSnPumS^ 'Z 

Input #F1%. TemN!: Dum $ = FormatiSrTemN!. "####0.0#####"V TextlOGVText = 
Trim$(Dum$) '4 

Input #F1%. TemN!: Dumii; = FonnatiKfTemN!. "####0.0#####"^: Textl0r4VText = 
Trim$a)um$V5 

Input #F1%. TemN!: Dum$ = FormatSrTemN!. "####0.Q#####"'): TextlO(5VText = 
Trim$fDum$V6 

Input #F1%. TemN!: Dumi; = FonnatSrTemN!. "#^0.0#####"^: Textl UQVText = 
Trim$fDum3>) 'X G5« 

Input #F1%. TemN!: Dum$ = Format3;(TemN!. "####0.Q#####"); Textl l(n.Text = 
Trim$(Dum$VY 

Input #F1%. TemN!: Dum$ = FormattrTemN!. "mm.Omm''): Textllf2VText = 
Trim$(Dum$^ 

Input #F1%. TemN!: Dum!l> = FonnatiKrremN!. "mmO.Omm"): TextllGVTexf = 
Trim$(Dum!Sl'4 

Input #F1%. TemN!: Dum $ « FormatiBrTemN!. "mmo.omm"): Textl U4VTe xt = 
Trim$fDum$^ '5 

Input #F1%. TemN!: Dum!i; = Fonnat$(TemN!. "mmO.Omm"): TextlUSVText = 
Trim$(Dum$^ '6 

Input #F1%. TemN!: Dum.i; = Format$(TemN!. "mm.(m#m"y. Textl 2r0VTeY t = 
Trim$rDum$^ 'X G59 

Input #F1%. TemN!: Dum!6 = FormatSrTem N!. "mm.omm"): Textl2f 1 VText = 

Trim$(Dum$'> 'Y 

Input #F1%, TemN!: Dum$ = Format$rTe mN!. "####O.Q#####"V Textl 2r9VTevt = 
TrimtfDumS't 'Z 

Input #F1%. TemN!: Dum. S = FomiatSrTemN!. "mm).(mm#"^: ^e^t^7m T^ vt = 
TrimSrOumS^ '4 

Input #F1%. TemN!: Dum $ = FormatSrTemN!. "m4m.(m#m"Y Textl 2r4'> T ^vt = 
Trim$(Dum!l>) '5 
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Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. "####0.0#####"V Textl2(5yText = 
Trim$(Dum$) '6 

Input #F1%. Dum$: SSCheckl .Value = VaKDumSl 'Drv Run 

Input #F1%. Dum$: SSCheck2.Value = Val(Dum$) 'BitMap G code 

Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. "####0.0#####"V. TextB.Text = 

TrimSnDumS") 'Tolerance 

Input #F1%. Dum$: TextH.Text = Trim$rDum$^ 'Block Skip Char 
Input #F1%. Dum$: TextlS.Text = TrimSrPumS') Teach Filename 

Input #F1%. Dum$: SSQptionKO't. Value = Val(Dum$) 'Absolute 
Input #F1%. Dum$: SSOptionim. Value = VaKDumSt 'Incremental 
Input #F1%. Dum$: SSOptionl(2\ Value - VaKDumS) 'R code 

23 ' extra tool options 
Text21.Text = "0" 

Input #F1%. TemN!: Dum$ = FormatSfTemN!. "####0.0#####"'>: Text21.Text = 
Trim$(Dum$) ' Solid stock Z begin 
Text22.Text = "l" 

Input #F1%. TemN!: Dum$ = FormatSfTemNI. "####0.0#####"1: Text22.Text = 
Trim$(Dum$) ' Extra Stock 
SSCheck3.Value = 0 

Input #F1%. Dum$: SSCheck3. Value = Val(Dum$^ 'Graphics: Solids vs Wire Frame 
SSCheck4. Value = 0 

Input #F1%. Dum$: SSCheck4.Value = Val(Dum$^ ' WireTrace 
If SSCheck3.Value = True Then 
SSCheck4. Value = False: SSCheck4. Visible = False 

Else 

SSCheck4. Visible = True 
End If 

Input #F1%. TemN!: Dum$ = FormatSfTemN!. "####0.0#####"): Text6r6yText = 
Trim$(Dum$^ 1 

hiput #F1%. TemN!: Dum$ = Format$(TemN!. "mmO.Omm"): Text6(7VText = 
Trim$fDum$^ '8 

Input #F1%. TemN!: Dum!B = FormatSrTemN!. "mm.Ommm"): Text7r6').Text = 
Trim$(Dum$^ '7 GS4 

Input #F1%. TemN!: Dum$ = FormatSfTemNI. "####0.0#####"-); Text7(7yText = 
Trim$fDum$'> '8 

Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. "####0.0#####"): Text8(6VText = 
Trim$(Dum$^ '7 G55 

Inbut #F1%. TemN!: DumS = Format$(TemN!. "####0.0#####"V Text8(7VText = 

Trim$(Dum$') '8 

Input #F1%. TemN!: Dum$ = Format$(TemN!. "####0.0#####"V Text9r6VText = 
Trim$(Dum$'> '7 



53 



Appl. No. 10/079,309 



Input #F1%. TemN!: Dum$ = FonnatSfTemN!. "####0.0#####"): Text9(7^.Text = 
Trim$(Dum$^ 7 

Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. "####0.0#####"): TextlO(6yText = 

Trim$(Dum$^ 7 

Input #F1%. TemN!: Dum$ = Format$(TemN!. "####0.Q#####"): TextlO(7yText = 
Trim$(Dum$^ '8 

Input #F1%. TemN!: Dum$ = FoimatSfFemN!. "####0.0#####"^: Text! 1(6). Text = 
Trim$(Dum$') 7 

Input #F1%. TemN!: Dum$ = FormatSrTemN!. "####0.0#####"V Textl UTi.Text = 
Trim$(Dum$^ '8 

Input #F1%. TemN!: Dum$ = Fonnat$(TemN!. "####0.0#####"): Textl2r6yText = 
Trim$(Dum$^ 7 G59 

Input #F1%. TemN!: Dum$ = FormatSfTemN!. "####0.0#####"): TextlirTVText = 
TrimSrOumS) '8 

Close Fl% 

Helps = "CNCTOOL.Hlp" 
Exit Sub 

Lload: 
Close Fl% 
Exit Sub 

LloadErr: 

If Erl = 23 Then Resume Lload 
MseBox Str$(Err). 48. "Error" 
End 

End Sub 



10032] Subroutine Element GloRead 

Reads in all glo bal and public data from user incut boxes plus any proprietary 
settings from F IG 1 and stores them into the Database Element as described in and 
enumerated as paragraph fOQ3Q]. 



Sub GloReadn 

On tocal Error GoTo GloReadERR: 

F% = FreeFile:G% = 0 

Open IniPi rS + "ini\PLANES.FIL" For Input As #F% 
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Do 

G% = G% + 1 
Input #F%. PlnBack!(G%) 
Input #P/o. PlnLeft!(G%) 
Input #F%. PlnCw!fG%) 
Loop Until G% = 256 

Close F% 

F% = FreeFile 

Open IniDirS + "im\GLOBAL.FIL" For Input As #P/o 

Line Input #F%. BitMapS 
Line Input #F%. SoundS 
Line Input #F%. Ram$ 

K% = InStr(Ram$. "\"^: If K% = 0 Then Ram$ = Ram$ + "\" 
Line Input #F%. FileWS 

K% = InStr(FileW$. "\"'>: If K% = 0 Then FileWS = FileWS + "\" 
Line Input #P/o. FiletS 

K% = hiStr(Filet$. If K% = 0 Then FUetS = FiletS + "\" 

Line Input #F%. PasslS 

Line Input #F%. Pass2$ 

Line Input #F%. Pass3$ 

Line Input #F%. CurFile$ 

Line Input #F%. Help$ 

Input #F%. Max% 

Input #F%. Laver% 

Input #F%. Path% 

Input #F%. BAD% 

Input #F%. Plane% 

Line Input #F%. MachS 

Line Input #F%.Ver$ 

Input #F%. Scan% 

Input #F%. Coli% 

Input #F%. Tune% 

hiput #F%. Speed! 

Input #P/o. Feed! 

Input #P/o. Tool! 

Input #F%. Dia! 

Input #P/o. Rapid! 

Input #P/o.mode% ^ 

Input #F%. Redraw% 

Input #P/o.Metric% 

Input #F%.T2D% 

Input #F%.Tolerf 

Input #F%.SmFTA! 
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Input #F%. FirstHelD% 
Input #P/o. HiLitePath% 

Close #P/o 

TolerSurf! = Toler! * 20 
'Level% = Level%/33 

Exit Sub 

GloReadERR: 
Close F% 

If Err = 53 Then MseBox IniPirS + "ini\Global.Fil Not Found". 65536 + 16. "Error": End 
MseBox "Can't Open " + IniPirS + "im\Global.Fir'. 65536 + 16. "Error " + StxSCEn) + 
":" + Str$(Ern: End 
End 

End Sub 



[0033] Subroutine Element ANG2VEC 

Returns angle between two vectors and works together with and calls the 
functions i n the element titled Database subroutine. Intelligent Database subroutine 
enumerated a s paragraph f00301 and the element titled Central subroutine enumerated as 
paragraph 100291. 



Sub ANG2VEC(SubVxl!. SubVvl!. SubVzl!. SubVx2!. SubVv2!. SubVz2!. SubAngil 
Vxl ! = SubVxl !: Vvl ! = SubVvl !: Vzl ! = SubVzl !: Vx2! = SubVx2!: Vv2! = SubVv2!: 
V22! = SubVz2! 
Call RCOSCT!^ 

'If T! < Toler! Then T! = 360 ' leave to calling sub 

SubAng!=Abs(T!^ 

End Sub 



(0034) Subroutine Element AnglnArc 

Tells if Angle given falls between arc angles and works together with and calls 
the functions in the ele ment titled Database subroutine. Intelligent Database subroutine 
enumerated as paragraph 100301 and the element titled Central subroutine enumerated as 
paragraph 100291. 

Sub AnghiArc( SubSTangL SubEndAng!. SubTestAng!. SUBRadl. SUBHITrol 
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SA! = SubSTang!: EA! = SubEndAng!: TA! = SubTestAnel: R! = SUBRadl: HIT% = 0 
Call TolAng(RL TOL!^ 
IfTA!= 360 Then TA! = 0 
IfEA! = 360 Then EA! = 0 
IfSA! =0 Then SA! = 360 

If TA! 0 And SA! = 360 And EA! <= SA! Then TA! = 360 
If EA! <= SA! And TA! + TOL! >= EA! And TA! - TOL! <= SA! Then 
HIT% = 1 

If TA! - TOL! <= SA! And TA! + TOL! >= EA! Then HIT% = 2 
End If 

If EA! >= SA! Then 
If TA! + TOL! >= EA! Or TA! - TOL! <= SA! Then 
HIT% 1 

If TA! - TOL! <= EA! Or TA! + TOL! >= SA! Then HIT% = 2 
End If 
End If 

SUBHIT% = HIT% 
End Sub 



[0035] Subroutine Element AngVec 

Changes XYZ vectors to real Angles relative to plane and works together with 
and calls the ftinctions in the element titled Database subroutine. Intelligent Database 
subroutine enumerated as paragraph f0030] and the element titled Central subroutine 
enumerated as paragraph 100291. 

Sub AngVecfSubVx!. SubVv!. SubVz!. SubPLn%^ 
Vx! = SubVx!: Vv! = SubVv!: Vz! = SubVz! 
Call RsinrVx!^ Call Rsin(Vv!'>: Call RsinfYz!^ 

B! = PInBack!rSubPLn%V L! = PhiLeft!(SubPLn%V C! = PhiCw!(SubPLn%^ 



SubVx! 


= Vx! 


-(90 


-Pvx!^ 


SubVv! 


= Vy! 


-(90 


-Pw!) 


SubVz! 


= Vz! 


-(90 


-Pvz!) 



End Sub 
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Subroutine F.lement Arc3Dt3D 

Finds center of are and radius piven 3 points and works together with and calls the 
functions in the element titled Database subroutine. I ntelligent Database subroutine 
enumerated an naraeratih r00301 and the element titled C entral subroutine enumerated as 

paragraph [00291. 

Sub Arc3pt3D(SubXl!. SubYl!. SubZl!. SubX2!. SubY2!. S uhZ2!. SUBX3!. SUBY3!. 
SUBZ3!. SUBI!. SubJ!. SubKl. SubR!. SubEr%^ 

SubEr% = 0 

On Local Error GoTo LArc3pt3D 

XI! = SubXl!: Yl! = SubYl!: Zl! = SubZl!: X2! = SubX2!: Y2! = SubY2!: Z2! = 
SubZ2!: X3! = SUBX3!: Y3! = SUBY3!: Z3! = SUBZ3! 



A! = 


fY2! - Yl !) * fZ3! - Z2!) - fY3! - Y2!^ * fZ2! - 


Zl!) 


B! = 


0C3! - X2!) * fZ2! - Zl!^ - 0C2! - XI !^ ♦ fZ3! - 


Z2!) 


C! = 


fX2! - XI!") * (Y31 - Y2!^ - fX3! - X2!^ * fY2! 


-Yl!) 


Bl!^ 


= 1 : CI ! = M / C!^ * ffAl ! * A!U fBl ! * BD) 





TemN! = ((X3! - XI !) ♦ C! - (Z3! - Zl !^ * MY If TemN! = 0 Then TemN! = 0.00001 

A2! - (rZ3! - Zll^t * B! - (Y3! - Yl!) ♦ C!) / TemN!: B2! = 1 

S! = frX3! - X2!^ * Bl ! - rY3! - Y2!^ ♦ Al !W (((Al ! * B2!^ - fA2! ♦ Bl l^i) * Tt 

X! = (rX3! + XI !"> / 2'> + (A2! * S!^ 

Y! = ((Y3! + Yl!W2>-<-(B2! ♦S!) 

Z! = ((Z3!+Z1!V2) + (C2! *S!) 

XX! = (X! - XI !^: YY! = (Y\ - Yl !V ZZ! = fZ! - Zl !) 

R! = SqrOCX! * XX! + YY! * YY! + ZZ! * ZZl) 

If Metric% = 0 And R! > 1000 Then SubEr% = 1 

If Metric% = 1 And R! > 25400 Then SubEr% = 1 

SUBI! = X!: SubJ! = Y!: SubK! = Z!: SubR! = R! 

Exit Sub 



LArc3pt3D: 

'Call Plav("ERROR"V. MseBox "The 3 Positions are a Straight Line". 65536 +48. "Can 
Not Make ARC" 
SubEr% = 1 
Resume Larc3pt3D5 

Larc3pt3D5: 
End Sub 
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100371 Subroutine Element ArcEnd 

Calculates the ends of arc positions in 3D and works together with and calls the 
functions in the element titled Database subroutine. Intelligent Database subroutine 
enumerated as paragraph f00301 and the element titled Central subroutine enumerated as 
paragraph r0029]. 

Sub ArcEndfSUBI!. SubJ!. SubK!. SubR!. SubS!. SubE!. SubPLn%. SubXl!. SuhYl !. 
SubZl!. SubX2!. SubY2!. SubZ2!'> 

i! = SUBI!: J! = SubJ!: K! = SubK!: R! = SubR!: S! = SubS!: E! = SubE!: P% = 
SubPLn% 

SI = SI * Radian!: E! = E! ♦ Radian! 

XI ! = R! * Sin(S!V Yl ! = R! * Cos(S!^: Zl ! = 0 

X2! = R! * Sm(El): Y2! = R! ♦ CosfEH: Z2! = Q 

If P% > 0 Then Call R2P(X1 !. Yl !. Zl !. ?%->: Call R2P(X2!. Y2!. Z2!. P%) 
SubXl ! = XI ! + il: SubYl I = Yl ! + J!: SubZl I = Zl ! -t- K! : SubX2! = X2! + i! : 

SubY2! = Y2! + J!: SubZ2! = Z2! H- K! 

End Sub 



I0038J Subroutine Element ArcLen 

Calculates the lengt h of arc positions in 3D and works together with and calls the 
functions in the element ti tled Database subroutine. Intelligent Database subroutine 
enumerated as paragraph [00301 and the element titled Central subroutine enumerated as 
paragraph 10029]. 



Sub ArcLenrSubS!. SubE!. SubR!. SubLft 
S! = SubS!: E! = SubE!: R! = SubR! 
i! = S! - E!: If i! <= 0 Then i! = i! + 360 
SubL! = rR! * i! ♦ 3.141 5926^ / IRQ 

End Sub 
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[00391 Subroutine Element BiSectAng 

Calculate Bisected 3D angles and works together with and calls the functions in 
the element titled Database subroutine. Intelligent Database su broutine enumerated as 
paragraph 100301 and the element titled Central subroutine enumerated as paragraph 
r00291. 



Sub BiSectAng(SUBSA!. SUBEA!. SubNew!) 
Sang! = SUBSA!: Eang! = SUBEA! 
If Sang! < Eang! Then Sang! = Sang! + 360 
N!=(Sang!-Eang!W2 
N!=N!+Eang! 
If N! > 360 Then N! = N! - 360 
SubNew!=N! 
End Sub 



100401 Subroutine Element BISECVEC 

Calculate Bisected 3D vectors and works together with and calls the functions in 
the element titled Database subroutine. Intelligent Database subroutine enumerated as 
paragraph [0030] and the element titled Central subroutine enumerated as paragraph 
100291. 



Sub BISECVEC(SubXl!. SubYl!. SubZl!. SubX2!. SubY2!. SubZ2!. SubVx!. SubVv!. 
SubVz!) 

XI! = SubXl!; Yl! = SubYl!: Zl! = SubZl!; X2! = SubX2!: Y2! ^ SubY2!: Z2! = 
SubZ2! 

0! = Sqr(A! * A! + B! * B! + C! * C!) 

If Abs(0!) < 0.0002 Then SubVx! = 0: SubVv! = 0: SubVz! = 0: Exit Sub 
SubVx! = A! / 0!: SubVv! = B! / O!: SubVz! = C! / O! 
End Sub 
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10041] Siihroutine E lement CrLnlflnt 

ralculates 3n Tircle/Line I p tftrsections and works together with and calls the 
fi.n.tmn. in the elen^^nt titled Databa «>^ .nhmutine, Intellipent Datahase subroutine 
.»..»,..atM p.n.Pmnh m '^c^ ] .nd the element titled Central subroutine enumerated as 
parag raph [00291. 

RnK r.rT nTflntrSUBI!. R»KTI STJRRad!. SnhSan pL SubEanp!. SubXl!, SubYl!, SubX2!, 

s;„hV7i SiihXIstL SubVl^tK SubHitl%. S..bX2nd!. SubY2nd!. SubHit2%) 

;i = Simi!: J! = SnbT»- Rt = SUBR3 d»> S! = SubSane!: R! = SubEang! 

^= SnhXI !: Yl! = SiihYl t: X21 = SnbY2t: Y2» - Su hV^lt SubHitl% = 0: SubHlt2% 

r.ll MATHOC1 !■ Yl !. i!. J i , 1 At, R!. Em$. F,M. XAL YA!, XB!, YBl): If Er% = 1 
Then Exit Sub 

'test 1st intersection 

SuhXlstl = XA!: SubYlst! = YA! 

Call PtlnCr(i!. J!. R' S!. K!. XA!. YA!. Hitl%) 

If Hitl% ^ 1 And Hit2% > 0 Then SubHitl% = 1 

Tf Hitl% = 2 And Hit2% > 0 Then SubHitl% = 2 

'test 2nd intersection 

SuhX2nd! = XB!: SubY2nd'. = YB! 

Tall PTlNLNfXl!. Yl 1. X2L Y2L X B!. YBL Hit2%) 

Tf Hitl% = 1 And Hit2% > 0 Then SubHit2% = 1 

If Hitl% = 2 And Hit2% > 0 Then SubHit2% = 2 

End Sub 



[0042] 



Subroutine Element CrossErr 

Calculates errors in tool comn and works together with and calls the functions in 
the element titled Database subroutine. Intelligent Data hase subroutine enumerated as 
paragraph 100301 and the element titled Central subroutin e enumerated as paragraph 
(00291. 

Sub CrossErrrSiihPLn%. SubVxL SubVv!. SubVz!^ 
P% = SubPLn% 

Bl = PlnBack!(P%^: L! = PlnLeft!(P%V Ci = PlnCw!(P%) 
Call View2VecfBL LL C!. VxL Vv!. Vzi) 
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S.ihVx! = Vy'- S">^Vv'- = Vv '- SnhVz! = Vz! 
End Sub 



100431 




Snh DhAtrfQATRi"/- r>ATR2''/o. OA T R^% OATR4%. 0ATR5%, 0ATR6%, 
nATR7o/o. OAT R«%. OATR9%) 

' If ItemNuTnher% <=0 th en Close file 

'0ATR1% = Ttem number 
'OATR2% = Function 
'0ATR3% = Hot property 
'OATR4% = Entity type 
'0ATR5% = Path number 
'QATR6% = I^ver numbe 
'QATR7% = Line style 
'0ATR8% = Position 
'OATR9% = Error 

nitem% = 0ATR1% 

Tf Oitem% <= 0 Then Close 1 53: DbOpen% = 0: Exit Sub 

Tf DbOpen% = 0 Then DbQDen% = 1 : Close 153 ' Op^n Filet!!; + "DATABASE.FIL 
For Random As #1 53 L en = Len(RecFile^ 



Select Case QATR2% 
CaseO 'Set parameters 

TemL& = Len(RecFile^ ^ 
If rOitein% * TemLA^ <= T.OF(153^ Th en Pet #153. Oitem%, RecFile Must Get 

other things in RecFile before write 
RecFile aflHot = OATR3% 
RecFile aaTv pe = OATR4% 
RecFileaaPath = 0ATR5% 



RecFilcaaLaver = 0ATR6% 
RecFile.aaStvle ^ QATR7% 
RecFile.aaColor = OATR8% 
RecFilcaaPlane = OATR9% 
Put #153. Oitem%. RecFile 



Case 1 'Get parameters 
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[00441 



flftt #1 53. Oit em%. RecFile 
OATR3% = T^ecFilcaaHot 
nATR4% = RpcFile.aaTvDe 
OATR5% = RecFile.aaPath 



O ATR6% = P ^^W1«. .^flT aver 



0AT]R7% = RecFile.aaStvle 
OATRS% = RecFile-aaColor 
OATRQ% = RecFile.aaPlane 
End Select 

End Sub 



Subroutine Element DbGet 

n^ts rtfltahase item coordinate. Drop e rtv and position from random file. Works 
with the Element titled Intelligent Database suh mntine enumerated as paragraph [0030]. 

Snh DhOet(SubTtpmO/n. SubXl!. S nhVI »- SuhZl !. SnbX?!, SubY2!, SubZ2!) 
' If ItemNuinher% <=0 then Close file 



On Local Error GoTo dbeetERR: 
TT% = Subltem% 

If TT% <= 0 Then Close #153: DbQDen% = Q: Exit Sub 

If nhOnen% = 0 Then nhOpen% = 1 : Close 1 53: O pen Fileri; + "DATABASE.FIL" For 
Random As #1 53 Len = LenfRecFile^ 

Get #153. TT%. RecFile 
SubXl!=RecFile.aaXl 
SubYl!=RecFile.aaYl 
SubZl!=RecFile.aaZl 
SubX2! = RecFile.aaX2 
SubY2! = RecFile.aaY2 
SubZ2! = RecFile.aaZ2 

Exit Sub 
dbeetERR: 

Close 153: DbOpen% = 0 
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Tf Prr = Then Mt^- ^'^'-'^ + ..pA T ASF. FH. Not Found" 6S536 + 16, "Error": 

g^^nv >'r.n-t Onen " ^^.tt "OATABA SF ," 6S5% 16, "Frror " 4- Str$(Err) 4- 

+ StrSfErH: End 

End 

End Sub 



Subroutine Element DbSet 

R^t>» natahase item coordmate. Drooertv and position fro m random file. Works 
with the Element titled Intellige nt Database subroutine enumerated as paragraph [0030]. 

Snh DhSetfSubItPm% SubXl!. Sub VI !- SubZl!. SubX?.!, SubY2!, SubZ2!) 

' Sets Database item coord into r andom file 
' If ItemNumber% <=0 then Close file 

On Local Error GnTo DbSetERR: 
TT% = Subltem% 

If TT% <= 0 Then Close #1 53: DbQDen% = 0: Exit Sub 

Tf nbQDen% = 0 Then DbOpen% = 1 • Hose #153: O p^n FiletiB + "DATABASE.FIL" For 
Random As #1 53 Len = LenfRecFile') 

TemL& = Len(RecFile') . ^ u .i.- 

Tf (TWo * TemT <=' LOFf 1 53^ Then Get #1 53. TT%. RecF il*^ 'Must Get other thmes 

in RecFile 

RecFile.aaXl =SubXl! 
RecFile.aaYl =SubYl! 
RecFilcaaZl =SubZl! 
RecFile.aaX2 = SubX2! 
RecFile.aaY2 = SubY2! 
RecFile.aaZ2 = SubZ2! 
Put #153. TT%. RecFile 

Exit Sub 

DbSetERR: 

Close 153:DbQpen%'=0 _ „^ „ 

Tf Rrr = S3 Then MsgBox Filet< + "DATABA SE.FTL Not Found". 65536 + 16, 'Error : 

End ^ ^ 

MsgBox "Can't Onen " + FiletS + "DATABASE.FIL". 6553 6 + 16. "Error " + Str$(Err) + 

":" + Str3;rErn: End 
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End 

End Sub 



[0046) Subroutine E lement DbSetAtrCur 

Stores, retrieves and records current da tabase variables in memory to work 
to pether with the Element titled Inte lli gent Databas e subroutine enumerated as parasraph 
[00301. 

Sub DbSetAtrCurf SubTvpe%^ 

TT% = Max% 
T% = SubTvpe% 
H%=1 
Pth% = 0 
L% = Laver% 

If SubTvpe% = 2 Then S% = Stvle% Else S% = 0 
C% = Colr% 
Pln% = Plane% 

Call DbAtrnT%. 0. H%. T%. Pth%- L%. S%. C%. Pln%'> 
End Sub 



100471 Subroutine Element DefPln3pts 

Finds 3D plane vector normals and works together wi th and calls the functions in 
the element titled Database subroutine. Intelligent Database sub routine enumerated as 
paragraph [00301 and the element titled Central subroutine e numerated as paragraph 
[00291. 



Sub DefPlnSptsrSubPxl !. SubPvl !. SubPzl L SubPx21. Sub Pv2!. SubPz2!. SubPxS!. 
SubPv3!. SubPz3!. SubVx!. SubVv!. SubVz!) 

Pxl ! = SubPxl !: Pvl ! = SubPvl !: Pzl ! = SubPzl !: Px21 = SubPx2!: Pv2! = SubPv2!: 

Pz2! = SubPz2!: Px3! = SubPx3!: Pv3! = SubPv3!: Pz3! = SubPz3! 

Call Vector(Px2!. Pv2!. Pz2!. Px3!. Pv3!. Pz3!. Vxl!. Vvl!. Vzl!. Vdl!^ 

Call Vector(Px2!. Pv2!. Pz2!. Pxl !. Pvl !. Pzl !. Vx2!. Vv2!. Vz2!. Vd2!'> 

Call CROSSVECrVxl !. Vvl !. VzlL Vx2!. Vv2!. Vz2!. Vx!. Vv!. Vz!1 

SubVx! = Vx!: SubVv! = Vvl: SubVz! = Vz! 

End Sub 
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[0048] Siihmutine E]''rnm^ T.nTan2Aic 

r-oi.„i.t.. T .ine T^n p^nt tn Arc at AnMe Tntersections and works together >vith 
..n. .u. fi,n.t^nn. in the ele -^^t Database nibroiitine Intelligent Database 

...u,.„^., ^..A nam^r^ fno^m «nd the element titled Central subroutine 

ftniimerated as paragraph [00291. 

o,, . ....o.^^.tmT, ...KTL SubR. SnbAn.. SubCx!, SubCy. ^"^^^"tX! SublntY Q 
TTT^. T. J^uy.V: R! = SubPf A' = SubAng!: CXr=Subr^ : - Sub -£l^ 
vn = VI I = J!: Al ! = At - 90: Call Fix ^npr A1 »V Call PolarfXI !, Yl !, Al , R!) 
V9! = Jf! A2! At + 90; Call Fj vanprAllV Call Pol«rOC2t, Y2!, A2kRl} 

SnhTntX! = XI!: Su blntY! = Yl! 

roll n;c(rYi,rYi Xlt.YlLDl!) 

Call Dis(CX!. CY> X2!. Y2!. D2!) 

Tf mi < Dl ! Then SubTntXt = X2! ! SublntY! = Y2! 

End Sub 

(0049] Subroutine F-lement LnT anlArcs 

r^ipnlatfM, -tn T.ine Tang ent to two Arcs at Angle Intersections and works 
tr^ ppther with and cslh the functions i n the element titled Database subroutine, Intelligent 
n^t^ha^fi subroutine e numerated as pap igraph [003Q1 and the element titled Central 
subroutine enumerated as paragraph [00291. 

Snh T.nTan2Arcs(ST mn 1. SubJl !. S nbRI !, SUBI2!. Sub.T2!. SubR2!, SubCxl !, SubCyl!, 

S..hCv9t SubCv2!. SnbTntXI !. SublntV I !- SubIntX2!. SuhIntY2!, SubEr%) 

n ! = SUBIl!: Jl 1 = SiihJI !: Rl ! = SubRl! 

T2! = SUBI2!: J2! = SubJ2!: R2! = SubR2! 

Cxi! = SubCxl !: Cvl ! = SubCv l It SubEr% = 0 

Cy2! = SubCx2!: Cv2! = SubCv2! 

Call nism! .Tl!.I2!.J2!.D!^ 

'If D! < Rl ! Or D! < R2! Then SiihFr% = 1 : Exit Sub 

Call AngaiLJl!.I2!.J2!.A!^ 

Call Vector^Il !. Jl ! OS!. Jl. 0. Vx! . Vv!- Vz!. Vd!^ ' Vector perpemdicular to angle 
between arc centers 

Call DISVECai I. -Tl !- Q. Cx2!. C y9» , 0 Vv!- Vv!- Vz!. D2!^ 

TheSame% = 0: F! = (Rl ! + R2!^ / D! ' If both crossha irs are on different sides 

Tf Dl ! < 0 And D2! < 0 Then TheSame% = 1 : F ! = (Rl ! - R2!W D! ' If both crosshairs 

are on same side 
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If Dl »■ > 0 And D2! > 0 Then TheSame% = 1: F! = fRl ! - RP -H / D! ' If both crosshairs 
are on same side 

Call Rsin(F!V- F! = 90 - Abs(Fh ' to get an ^le from arc center 

Select Case TheSame% 

CaseO 
'First arc 

Tl = A! + F!: XI! = II!: Yl! = Jl !: Call PoiarOCl!. Yl!. TL KU) 
T! = A! - F!: X2! = II !: Y2! = Jl !: Call PolarOC2!. Y2!. T!. KID 
SublntXl I = XI! : SublntYl I = Yl ! 
Call Dis(Cxl !. Cvl !. XI !. Yl !. Dl !) 

Call DisrCxl !. Cvl !. X2!. Y2!. D2!^: If D2! < Dl ! Then Su blntXl I = X2!: SublntYl ! = 
Y2! 

'Second Arc 

A! = A! + 180: Call FixaneCA!) 

T! = A! + F!: XI ! = 12!: Yl ! = J2!: Call PoiarOCl!. Yl !. T!. I^!) 
T! = A! - F!: X2! = 12!: Y2! = J2!: Call PolarOC2!. Y2!. T!. R2!'> 
SubIntX2! = XI !: SubIntY2! = Yl ! 
Call Dis(Cx2!. Cv2!.Xl!. Yl!. Dl!) 

Call Dis(Cx2!. Cv2!. X21. Y2!. D2!V If D2! < Dl ! Then SubhitX2! = X2!: SubIntY2! = 
Y2! 
Case 1 

'First arc 

If Rl ! < R2! Then A! = A! + 180: Call Fixang(A!) 

T! = A! +F!: XI! =11!: Yl! = Jl!: Call PoiarOCl!. Yl!. T!. Rl!) 

T! = A! - F!: X2! = II!: Y2! = Jl!: Call PoIarOC2!. Y2!. T!. Rl!) 

SublntXl ! = XI !: SublntYl ! = Yl! 

Call Dis(Cxl !. Cvl !. XI !. Yl !. Dl H 

'Second Arc 

T! = A! + F!: XI ! = 121: Yl ! = J2!: Call PoiarOCl!. Yl !. T!. R2!) 
T! = A! - F!: X2! = 12!: Y2! = J2l: Call PolarOC2!. Y2!. T!. R2n 
SubIntX2! XI !: SubIntY2! = Yl! 
Call Dis(Cx2!. Cv2!. XI !. Yl !. Dl !) 

Call Dis(Cx2!. Cv2!. X2!. Y2!. D2!): If D2! < Dl! Then SubhitX2! = X2!: SubIntY2! = 
Y2! 

End Select 
End Sub 
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(00501 Subroutine Element LnTanArcPt 

Calculates 3D Line Tangent to arc through point and works together with and 
calls the functions in the element titled Database subroutine. Intelligent Database 
subroutine enumerated as paragraph r00301 and the element titled Central subroutine 
enumerated as paragraph 10029]. 



SubLnTanArcPtfSubPX!. SubPY!. SUBI!. SubJ!. SubRl. SubCx!. SubCv!. SublntX!. 
SublntY!. SubEr%l 

X! = SubPX!: Y! = SubPYl: i! = SUBIl: J! = SubJ!: R! = SubR!: CX! = SubCx!: CYi = 
SubCv!:SubEr% = 0 

Call DisOC!. Y!. i!. J!. D!): If D! < R! Then SubEr% = 1: Exit Sub 
Call Ang(i!. J!. X!. Y!. A\) 

T! = A! + B!: XI ! = i!: Yl ! = J!: Call PolarOCl !. Yl !. T!. R!) 
T! = A! - B!: X2! = i!: Y2! = J!: Call Polar(X2!. Y2!. T!. Ri^t 
SubhitX! = XI!: SublntY! = Yl! 
Call DisfCX!. CY!. XI!. Yl!. Dl!^ 

Call DisrCX!. CY!. X2!. Y2!. D2!^: If D2! < Dl ! Then SublntX! = X2!: SublntY! = Y2! 
End Sub 



[00511 Subroutine Element MidArc 

Finds midway p oint of 3D arc and works together with and calls the fimctions in 
the element titled Data base subroutine. Intelligent Database subroutine enumerated as 
paragraph 100301 and the element titled Central subroutme enumerated as paragraph 
100291. 



Sub MidArcrS ubPLn%. SubG%. SUBI!. SubJ!. SubK!. SubR!. SubS!. SubE!. SuhX!. 
SubYI. SubZ!) 

P% = SubPLn %: i! = SUBI!: J! = SubJ!: K! = SubK!: R! = SubR!: S! = SubS!: E! = 
SubE! 

'If SubG% = 2 Then T! = S!: S! = E!: E! = T! ' done bv CirConvert 

Call BiSectAng(S}. E!. MidAnp!^ 

X! = 0: Y! = 0: Z! = 0 

Call PolarfX!. Y!. MidAng!. R!^ 

If P% > 0 Then Call R2?(X\. Y!. Z!. P%^ 
X! = i!+X!: Y!=J! + Y!:Z!=K! + 7.I 

SubX! = X!: SubY! = Y!: SubZ! = Z! 
End Sub 
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[0052] Subroutine Element OffCR 

Offsets a circle in 3D and works together with and calls the functions in the 
element titled Database subroutine. Intelligent Database subroutine enumerated as 
paragraph [00301 and the element titled Central subroutine enumerated as paragraph 
r00291. 

Sub OffCRrSUBIl. SubJL SubK!. SubR!. SubPLn%. SubXal. SubYol. SubZp!. 

SUBDis!. SubNewRad!. SubEr%) 

i! = SUBI!; J! = SubJl: K! = SubK!: R! = SubR! 

P% = SubPLn%: Xp! = SubXpl: Yp! = SubYo!: Zp! = SubZo!: D! = SUBDis!: SubEr% = 0 
If P% > 0 Then Call ProiPln(P%. i!. J!. K!. Xp!. Yd!. ZpH ' adjust chross/hair Z to plane 

of arc 

X! = Xp! -i!: Y! = Yp! -J!:Z!=Zp!-K! 
If Tl >= R! Then SubNewRad! = R( + D! 

If T! < R! Then SubNewRad! = R! - D!: If SubNewRad! <= 0 Then SubEr% = 1 ' 
negative but continue 
End Sub 



[0053] Subroutine Element OffLN 

Offsets a line in 3D and works together with and calls the functions in the element 
titled Database subroutine, hitelligent Database subroutine enumerated as paragrap h 
f00301 and the element titled Central subroutine enumerated as paragraph 100291. 

Sub OffLNrSubXl!. SubYl!. SubZl!. SubX2!. SubY2!. SubZ2!. SubPX!. SubPY!. 
SubPZ!. SUBDis!. SubPast%^ 

XI ! = SubXl !: Yl ! = SubYl !: Zl ! = SubZl !: X2! = SubX2!: Y2! = SubY2!: Z2! = 
SubZ2! 

Px! = SubPXl: Pv! = SubPY!: Pz! = SubPZ!: D! = SUBDis! 

Call PtOnLnfXl!. Yl!. Zl!. X2!. Y2!. Z2!. Px!. Pv!. Pz!. IntX!. IntY!. IntZ!. EndX!. 
EndY!. EndZ!. Pastro) 
If Past% = 1 Then Exit Sub 

Call VectorantXI. IntYl. IntZ!. Px!. Pv!. Pzl. Vx!. Vvl. Vzi. Vd!) 
Call VecPoBDrXl!. Yl!. Zl!. Vx!. Vv!. Vz!. D!") 

SubXl! = XI!: SubYl! = Yl!: SubZl! = Zl!: SubX2! = X2!: SubY2! = Y2!: SubZ2! = Z2! 
End Sub 



69 



Appl. No. 10/079,309 



Subroutine Element Tilt3D 

Tilts and rotates a tool for tool comp and worics together with and calls the 
functions in the element titled Database subroutine. Intelligent Databa se subroutine 
enumerated as paragraph 100301 and the element titled Central subroutine enumerated as 
paragraph r00291. 

Sub Tilt3D(SUB42B!. SUB42L!. SUB42C!. SUB42X!. SUB42Y!. Sub42Z!) 

Rx! = SUB42B!: Rv! = SUB42L!: Rz! = SUB42C!: X! = SUB42X!: Y! = SUB42Y1: Z! 
= Sub42Z! 

If Rx! = 0 And Rv! = 0 And Rz! = 0 Then Exit Sub 
' rotate 3d tool our convention 

Rx! = Rx! * Radian!: Rv! = Rv! * Radian!: Rz! = Rz! * Radian! 
' Z rot cw 

XI ! = X! ♦ Cz! + Y! ♦ Sz!: Yl ! = X! * -Sz! + Y! ♦ Cz!: Zl ! = Z! 
' Y rot, back 

X2! = X1!: Y2! = Yl! * CX! +Z1! * -Sx!:Z2! = Yl! ♦ Sx! +Z1! * CX! 
' X rot, left 

SUB42X! = X2! * CY! + Z2! * -Sv!: SUB42Y! = Y2!: Sub42Z! = X2! ♦ Sv! + Z2! * 
CY! 

End Sub 
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VERSION WITH MARKINGS TO SHOW CHANGES MADE 



In the Claims; 

Claim 1 has been amended as follows: 

1. (Amended) I claim a method comprising of a technology element that calculates 
Multi-Axes Tool Compensation intemal to a central mathematical set of algorithms in 
memory of the CNC controller which ties all of the provided set of commands together as 
described in th e st e ps and e lem e nts of whioh compris e : and shown in the provided 
flowchart in block diagram form FIG 10 enumerated as Paragraph [0030] titled as 
Intelligent Database subroutine and Database subroutine which calls, ties to and works 
together with the group of elements titled the collection of mathematical subroutine 
elements enumerated as Paragraphs [0031'|-r00541 and specificallv linked to and shown 
in FIG 10 of the block diagram as it interacts with the Element titled DbAtr enumerated 
as paragraph [0043], Element titled DbGet enumerated as paragraph [0044]. Element 
titled DbSet enumerated as paragraph [0045] and Element titled DbSetAtrCur 
enumerated as paragraph [0046]. To further recite all of flie elements, components and 
steps completely constituting every aspect we further list and explain the technology 
elements as comprising of: 

a. The user setting his or her preferences for the values or amounts to compensate 
into boxes on an operator screen, such as the example screen in FIG 1 . for the 
boxes labeled tool size, horizontal offset, vertical offset, tool wear, comer radius, 
bottom angle, side angle and tool length. These interact with the G code program 
and other values optionally inputted or gathered as variables when the math 
calculations are performed. 

The user input boxes on FIG 1 specifically are read and stored by the Subroutine 
Element Form Load enumerated as [0031] which reads in all data from user input 
boxes from FIG 1 and stores them into the Database Element as described and 
enumerated as paragraph [00301. Further database variables and user settings 
both public, global and private call, ties to and works together with the database 
element titled subroutine DbAtr enumerated as [0043] which is a Database 
element to store geometry properties, error, conditions and positions. This ties to 
and works with the Element titled Intelligent Database subroutine enumerated as 
paragraph [0030] and the database element titled Subroutine DbGet enumerated 
as [00441 which gets Database item coordinate, property and position from 
random file which works wife the Element titled Intelligent Database subroutine 
enumerated as paragraph [0030] the database element titled Subroutine DbSet 
enumerated as [0045]. The DbSet Database element sets item coordinate, property 
and position from random file. The database element titled Subroutine GloRead 
enumerated as [0032] reads in all global and public data from user input boxes 
plus any proprietary settings from FIG 1 and stores them into the Database 
Element as described in and enumerated as paragraph [0030] titled as Intelligent 
Database subroutine and Database subroutine. 
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b. The user must repeat the steps in Claim 1 .a setting and entering his or her 
preferences for each tool description. There is no limit to the number of tools, 
machine types or tool shape combinations to enter, 

c. An industry standard G Code program, as in FIG 9, containing tool positions 
based on non-compensated original part geometry data, interact with the Multi- 
Axes tool compensation calculations when they are applied. These are the 
original tool positions that the user supplies in which the calculations are applied. 
These interact with values provided on the tool parameter screen. For each muhi- 
axes X,Y,Z,A,B,C value entered in the G Code program, the controller will 
calculate a compensated value based on the amounts entered into the tool 
parameter screen as in the example screen in FIG 1 . 

d. A set of optional text entered conunands are provided to interact and be directly 
entered onto the operator screen to override or toggle features on/off and adjust 
values: 



TOOLCOMP OFF 
TOOLCOMP LEFT 
TOOLCOMP RIGHT 
TOOLCOMP 3DC0MP 
TOOLCOMP 3DADJUSTZ 
TOOLCOMP 3D0FFSET 

TOOLCOMP 5AXIS 
TOOLCOMP LLIMIT45 



Turns all compensation off. 

•Comps tool in 2D to the left, 

*Comps tool in 2D to the right. 

'3D comp based on vector and gouge parameter. 

3D comp lifts Z axis only but keeps X,Y. 

3D parallel offset only - based on vector and 

'no gouge parameter. 

'5-axis comp based on vector and gouge parameter. 
'Give angle which will specify a gouge to omit tool. 



e, A multi-axes tool positioner in a tool holder mounted to a machine's spmdle cuts 
the part as shown in FIG 7 and FIG 8. 

f. The process of gathering the user-entered information, preferences, values, 
amounts, on/off options on the operator screen as in FIG 1 . or as entered by 
optional text commands as in Claim l.d interact with the origmal tool positions as 
provided in the G code program, as in FIG 9, to provide the mathematical 
variables when processed by a set of described central mathematical routines 
internal to the CNC Controller as outlmed in the DETAILED DESCRIPTION OF 
THE INVENTION section. The various methods for gathering the information 
are incidental as to how the central set of math routines that perform these 
calculations receive them. 
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Claim 2 has been amended as follows: 

2. (Amended) I claim a method for Multi-Axes Tool Compensation olomont according 
to Claim 9, specifically pointing out by distinctly claiming the subject matter as what I 
regard as my invention is an element which automatically calculates tool gouge 
avoidance protection intemal to the CNC controller's central set of math routine 
algorithms as shown: in FIG 5 Dun "E" Itom 7. 

a. Elements and components are depicted in FIG 3 Item 5. FIG 4 DIM "D" Item 6, 
FIG 5 DIM "E'^ Item 7 and FIG 6 DIM "R" Item 8, 

b. Relationships between the Tool Parameter. Tool Definitions. Machine and Fixture 
offset elements and how they work together are shown by flowchart in block 
diagram form. 

c. We further recite the relationships as outlmed in the DETAILED DESCRIPTION 
OF THE INVENTION in paragraphs enumerated as [00241 through r00281 as the 
means in which the necessary parameters are gathered from the user and stored 
using computer variables within the computer's memory as shown in paragraph 
enumerated as [00301 as the element titled Database subroutine then passed to the 
subroutines of the technology element as depicted in paragraphs [0022] as the 
element titled Vector and Matrix subroutme. r00231 as the element titled Gouge 
subroutine and 100291 as the element titled Central subroutine. 



Claim 3 has been amended as follows: 

3. (Amended) I claim a method p e rtaining to Claim 1 for Multi-Axes Tool 
Compensation, specifically pointing out by distinctly claiming the subject matter as what 
I regard as my inyention is an element which automatically contains algorithms to lift the 
tool to safe positions or skip the move when necessary by determining if the LLIMIT 
parameter, as shown in FIG 5 Dim "E" Item 7, is in violation of any surrounding 
obstacles as determined by a user-defined variable value as enter on the operator screen 
in FIG 1. 

a. This claim is a an alt e rnativ e claim method of calculating tool gouge avoidance 
and tool protection as outlined in Claim 2. 

b. As the key objective we use a method of user-definable command elements that 
override, replace, and redefine the variables gathered from the user and stored 
using computer variables within the computer's memory as shown in paragraph 
enimierated as [0030] as the element titled Database subroutine. 
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c. We list and recite the elements of the user-definable commands as shown in 
paragraphs enumerated as rOOlSI through 100211 of the DETAILED 
DESCRIPTION OF THE INVENTION as; 

TOQLCOMP OFF 
TOOLCOMP LEFT 
TOQLCOMP RIGHT 
TOOLCOMP 3DC0MP 
TOOLCOMP 3DADJUSTZ 
TOOLCOMP 3DQFFSET 
TOOLCOMP 5AXIS 
TOOLCOMP LLIMIT45 

which are further recited to show the relationships of how the user-definable 
command set overrides, replaces and redefines the user input as outlined in FIG 1 
on the operator screen and described in the DETAILED DESCRIPTION OF THE 
INVENTION in paragraphs enumerated as f 000 11 through 100121. 



Claim 4 has been amended as follows: 

4. (Amended) I claim a method p«t oining to Claim 1 whioh do e s not dopond on the 
CNC prngmmmor to ro d e fin e specifically pointing out bv distinctly claiming the subject 
matter as what I regard as mv inyention is an element to redefine, replace and override 
the tool position coordinates when the tool characteristics change: 

a. Relationships between the user-definable command method elements and how 
thev work together are shown in the flowchart in block diagram form, as in FIG 

la 

b. As the key objective we use a mefliod of user definable command elements that 
over ride, replace and re-define the variables gathered &om the user and stored 
using computer variables within the computers memory as shown in paragraph 
enumerated as 100301 as the element titled Database subroutine. 

We list and recite the elements of the user definable commands as shown in 
paragraphs enumerated as 100151 through 100211 of the DETAILED 
DESCRIPTION OF THE INVENTION as: 

TOOLCOMP OFF 

' TOOLCOMP LEFT 
TOOLCOMP RIGHT 
TOOLCOMP 3DC0MP 
TOOLCOMP 3DADJUSTZ 
TOOLCOMP 3DOFFSET 
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TQOLCQMP 5AXIS 
TQQLCQMP LLIMIT45 

which are further recited to show the relationships of how the user-definable 
command set overrides, replaces and redefines the user input as outlined in FIG 1 
on the operator screen and described in the DETAILED DESCRIPTION OF THE 
INVENTION m paragraphs enumerated as fOOOll through [00121 



Claim 5 has been canceled. 
Claim 6 has been canceled. 
Claim 7 has been canceled. 
Claim 8 has been canceled. 
Claim 9 has been amended as follows: 

9. (Amended) I claim an algorithm element according to Claim 1 which does not stor e 
or pooQ th e oompensatod positiona by g e ometry alone but rath e r expands the intelligence 
of each calculation for compensated tool positions based on an artificial intelligence 
algorithm element. 

a. The artificial intelligence algorithm element is actually a live, real-time, ever- 
changing database in the machine's memory that remembers by learning fi*om 
what the machine can and cannot do. The database is a storage of events, 
variables as an internal list of conditions and positions kept in standard random 
access memory as outlined by the various variables used by the central set of math 
algorithms. 

b. Specifically pointing out by distinctlv claiming the subject matter as what I regard 
as mv invention is an element for which we recite as a method to store events, 
conditions, positions and errors into computer variables within the computer's 
memory as shown in paragraph enxmierated as [0030] as the element titled 
Database subroutine. 

c. Relationships between the intelligent database element that stores the events, 
conditions, positions and errors into computer variables and how they work 
together are shown in the flowchart in block diagram form, as in FIG 10. 
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In the Drawings; 

The content of FIG 1 has been amended as indicated by the red marking within the 
drawing itself. The page numbers for FIG 1 through FIG 9 have been amended* as 
indicated by the red markings, as a result of the addition of FIG 10. 
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Invention Title: Multi-Axes Tool Compensation - 3D and 5-axis real-time interactive 



tool compensation inside the CNC machine tool controller. 
Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor's Phone No.: (951) 674-8100 
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FIG 1. 
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Invention Title: Multi-Axes Tool Compensation - 3D and 5-axis real-time interactive 
tool compensation inside the CNC machine tool controller. 
Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor's Phone No.: (951) 674-8100 
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FIG 2. 
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Invention Title: Multi-Axes Tool Compensation - 3D and 5-axis real-time interactive 
tool compensation inside the CNC machine tool controller. 
Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor's Phone No.: (951) 674-8100 
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Invention Title: Multi-Axes Tool Compensation - 3D and 5-axis real-time interactive 
tool compensation inside the CNC machine tool controller. 
Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor's Phone No.: (951) 674-8100 




FIG 4. 
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Invention Title: Multi-Axes Tool Compensation - 3D and 5-axis real-time interactive 
tool compensation inside the CNC machine tool controller. 
Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor's Phone No.: (95 1) 674-8100 
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FIG 5. 
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Invention Title: Multi-Axes Tool Compensation - 3D and 5-axis real-time interactive 
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Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor's Phone No.: (951)674-8100 
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FIG 6. 
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Invention Tide: Multi-Axes Tool Compensation - 3D and S-axis real-time interactive 
tool compensation inside the CNC machine tool controller. 
Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor*s Phone No.: (95 1) 674-8100 
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FIG 7. 
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Invention TiUe: Multi-Axes Tool Compensation - 3D and S-axis ree^ime interactive 
invention ^^^^ ^^p^^^on inside the CNC machine tool controller. 



Inventor: Gary John Corey 
Application No. 10/079,309 
Inventor's Phone No.: (951) 674-8100 
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N80 YO Z.5 A270. B-90. 

N90 Y-3.2465 Z10.75 A90. B-60. 
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N120 Gl ZO 

N130 GO AO BO 

N140 XO Y-21. ZO S200 FIO. 

N150 Gl Z20.5 

N160 Gl Y-10.9332 Z17 . 9367 AO B-29.9993 FIO. 

N170 Y-3.2463 Z10.7498 AO B-60. 0007 

N180 YO Z.5 AO B-90. 

N190 Y-3.2465 Z10.75 A180. B-60. 

N200 Y-10.933 Z17.9365 A180. B-30. 

N210 Y-21. Z20.5 A180. BO 

N220 ZO 

N230 GO AO BO 

N240 M30 
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FIG 9. 
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FIG 10.: Flowchart in block diagram form of each technology element. 
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